home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: delta / whiteline CD Series - delta.iso / tex / style / misc / multitoc.sty < prev    next >
Text File  |  1995-11-25  |  1KB  |  42 lines
  1. %%%
  2. % Style-Datei, die es erlaubt, unter LaTeX mehrmals
  3. % eine TOC, LOF oder LOT-Datei einzulesen.
  4. %%%
  5.  
  6. % Diese Option nur einmal einladen!
  7. \ifx\@MultiOpen\undefined\else\endinput\fi
  8.  
  9. % Mitteilung ausgeben:
  10. {\newlinechar=`\^^J
  11. \message{^^JLaTeX-option-style for multi toc/lof/lot.^^J^^J}}
  12.  
  13. % Tokenregister, um die zu "offnenden Dateien zu speichern
  14. \newtoks\@multitoc \@multitoc{}
  15.  
  16. % "Offnet am Dokumentende jeweils eine TOC-Datei, aber nur wenn sie
  17. % nicht schon ge"offnet ist. Und nur, wenn nicht \nofiles eingestellt ist.
  18. \def\@MultiOpen#1{%
  19.   \expandafter
  20.   \ifx\csname tf@#1\endcsname\relax
  21.     \if@filesw \expandafter\newwrite\csname tf@#1\endcsname
  22.        \immediate\openout \csname tf@#1\endcsname \jobname.#1\relax
  23.     \fi
  24.   \fi}
  25.  
  26. % Wird zum Setzen von einem Verzeichnis aufgerufen. Das Datei"offnen
  27. % wird an das Ende des Dokuments verlegt.
  28. \def\@starttoc#1{\begingroup
  29.   \makeatletter
  30.   \@input{\jobname.#1}
  31.   \global\@multitoc\expandafter{\the\@multitoc
  32.      \@MultiOpen{#1}}
  33.   \global\@nobreakfalse \endgroup}
  34.  
  35. % Am Dokumentende m"ussen vor dem normalen Ende noch die Dateien
  36. % ge"offnet werden:
  37. \let\@MultiEndDoc\enddocument
  38. \def\enddocument{\the\@multitoc\@MultiEndDoc}
  39.  
  40. % Das war's!
  41. \endinput
  42. ə